set opt(date) 1
proc date {from type body} {
	if {[cmd "$body" "date"] && $opt(date)==1} {
		set utime "[ctime [unixtime]]"
		if {[string match "*Mon*" "$utime"]} { set den "Понедельник" } 
		if {[string match "*Tue*" "$utime"]} { set den "Вторник" } 
		if {[string match "*Wed*" "$utime"]} { set den "Среда" } 
		if {[string match "*Thu*" "$utime"]} { set den "Четверг" } 
		if {[string match "*Fri*" "$utime"]} { set den "Пятница" } 
		if {[string match "*Sat*" "$utime"]} { set den "Суббота" } 
		if {[string match "*Sun*" "$utime"]} { set den "Воскресенье" } 

		set mesyats "mesyats" 
		if {[string match "*Jan*" "$utime"]} { set mesyats "Января" } 
		if {[string match "*Feb*" "$utime"]} { set mesyats "Февраля" } 
		if {[string match "*Mar*" "$utime"]} { set mesyats "Марта" } 
		if {[string match "*Apr*" "$utime"]} { set mesyats "Апреля" } 
		if {[string match "*May*" "$utime"]} { set mesyats "Мая" } 
		if {[string match "*Jun*" "$utime"]} { set mesyats "Июня" } 
		if {[string match "*Jul*" "$utime"]} { set mesyats "Июля" } 
		if {[string match "*Aug*" "$utime"]} { set mesyats "Августа" } 
		if {[string match "*Sep*" "$utime"]} { set mesyats "Сентября" } 
		if {[string match "*Oct*" "$utime"]} { set mesyats "Октября" } 
		if {[string match "*Nov*" "$utime"]} { set mesyats "Ноября" } 
		if {[string match "*Dec*" "$utime"]} { set mesyats "Декабря" } 

		set god [lindex $utime 4] 

		set time [lindex $utime 3] 

		set chislo [lindex $utime 2] 

		set newtime "У меня сейчас $chislo $mesyats $god год ($den) $time" 

		qa "$from" "$type" "$newtime"
		return stop
	}
}
hook::add message date 150